"0","scpdSM_euc <- vegdist(scpdSM, method=""euclidean"")"
"0","scpdSM_bray <- vegdist(scpdSM, method=""bray"")"
"0","scpdSM_chao <- vegdist(scpdSM, method=""chao"")"
"0","# print(scpdSM_euc)"
"0","# print(scpdSM_bray)"
"0","# print(scpdSM_chao)"
